home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok58.lha / EasyRexx / RexxSysLib.mod < prev    next >
Text File  |  1993-08-15  |  2KB  |  44 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                                                                         *)
  3. (*  Amiga Oberon Interface Module:                    Date: 18-Aug-91      *)
  4. (*                                                                         *)
  5. (*   © 1991 by Fridtjof Siebert                                            *)
  6. (*                                                                         *)
  7. (*-------------------------------------------------------------------------*)
  8.  
  9. MODULE RexxSysLib;
  10.  
  11. IMPORT e * : Exec,
  12.        rx* : Rexx;
  13.  
  14. VAR
  15.   base * : rx.RxsLibPtr;
  16.  
  17. (*--- functions in V33 or higher (distributed as Release 1.2) ---*)
  18. (*----------- Check 'base#NIL' BEFORE you use these ! -----------*)
  19. PROCEDURE CreateArgstring * {base,-126}(string{8}: ARRAY OF CHAR;  length{0}: LONGINT): e.STRPTR;
  20. PROCEDURE DeleteArgstring * {base,-132}(argstring{8}: e.STRPTR);
  21. PROCEDURE LengthArgstring * {base,-138}(argstring{8}: e.STRPTR): LONGINT;
  22. PROCEDURE CreateRexxMsg   * {base,-144}(port{8}: e.MsgPortPtr;
  23.                                         extension{9}: ARRAY OF CHAR;
  24.                                         host{0}: ARRAY OF CHAR): rx.RexxMsgPtr;
  25. PROCEDURE DeleteRexxMsg   * {base,-150}(packet{8}: rx.RexxMsgPtr);
  26. PROCEDURE ClearRexxMsg    * {base,-156}(msgptr{8}: rx.RexxMsgPtr;
  27.                                         count{0}: LONGINT);
  28. PROCEDURE FillRexxMsg     * {base,-162}(msgptr{8}: rx.RexxMsgPtr;
  29.                                         count{0}: LONGINT;
  30.                                         mask{1}: SET): BOOLEAN;
  31. PROCEDURE IsRexxMsg       * {base,-168}(msgptr{8}: rx.RexxMsgPtr): BOOLEAN;
  32. PROCEDURE LockRexxBase    * {base,-450}(resource{0}: LONGINT);
  33. PROCEDURE UnlockRexxBase  * {base,-456}(resource{0}: LONGINT);
  34.  
  35. BEGIN
  36.  
  37.   base := e.OpenLibrary("rexxsyslib.library",33);
  38.  
  39. CLOSE
  40.  
  41.   IF base#NIL THEN e.CloseLibrary(base) END;
  42.  
  43. END RexxSysLib.
  44.